home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_135_New Detail.bin < prev    next >
Text File  |  1995-11-23  |  4KB  |  122 lines
  1. ItemType: WIND
  2. Rect: 164,229,486,499
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: New Detail
  8. Params: i10_SelectionText┬i12_SelectionText┬i0_TopLeft┬i7_Text
  9. Result: i4_Text┬i10_Value┬i12_Value┬i7_SelectionText
  10.  
  11. ItemType: BOX
  12. Rect: 145,1,316,19
  13. Visible: FALSE
  14. PenSize: 2,2
  15.  
  16. ItemType: PUSH
  17. Rect: 241,176,313,196
  18. Disabled: TRUE
  19. Name: OK
  20. DefaultItem: TRUE
  21. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬OKNew┬--end mouseUp┬
  22.  
  23. ItemType: PUSH
  24. Rect: 140,176,220,196
  25. Name: Done
  26. CancelItem: TRUE
  27. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet("New Detail","Name","Text")┬put it into tt┬get wsGet("New Detail","createNum","text")┬put it into cn┬if tt = empty then┬  if cn>0 then makelists┬  wsSend "New Detail","0","Close"┬else┬  answer "You haven╒t finished the creation of ╥"&tt&"╙." with "skip it" or "OK"┬  if it="skip it" then┬    if cn>0 then makelists┬    wsSend "New Detail","0","Close"┬  end if┬end if┬--end mouseUp
  28.  
  29. ItemType: TEXT
  30. Rect: 1,20,319,42
  31. Name: Name
  32. LockText: FALSE
  33. TextAlign: Center
  34.  
  35. ItemType: LBL
  36. Rect: 1,1,138,17
  37. Text: Name of new detail:
  38.  
  39. ItemType: TEXT
  40. Rect: 140,4,323,16
  41. TextFont: Geneva
  42. TextSize: 9
  43. Name: Instr
  44. Text: 25 letters or less, no ╥/╙, ╥(╙ or ╥,╙
  45.  
  46. ItemType: LIST
  47. Rect: 97,86,317,165
  48. AutoSize: FALSE
  49. Name: theChoices
  50. Logic: Single
  51. DoubleClickItem: 2
  52. Text: 
  53. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"theChoices","SelectionText")┬if it¡empty then wsSet wdID,"OK","Disabled", "false"┬--end mouseUp
  54.  
  55. ItemType: PUSH
  56. Rect: 5,176,122,196
  57. Name: New Category
  58. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬put WSTopLeft(320,109) into TL3┬get wsGet("New Detail","Type","value")┬put it into typerrr┬put windowScript ("New Category",typerrr,TL3) into resulter┬unlock screen┬if line 1 of resulter = "closebox" then -- via OK script┬  put line 3 of resulter into typerrr┬  if typerrr="asset" then┬    put (fld "catListA" of cd 1) into temp┬  else┬    put (fld "catListL" of cd 1) into temp┬  end if┬  wsSet "New Detail","Type","SelectionText",typerrr┬  wsSet "New Detail","theChoices","text",temp┬end if┬--end mouseUp
  59.  
  60. ItemType: LBL
  61. Rect: 5,60,43,76
  62. Text: Type:
  63.  
  64. ItemType: POP
  65. Rect: 40,61,132,79
  66. AutoSize: FALSE
  67. Name: Type
  68. Text: Asset┬Liability
  69. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬if objValue="asset" then┬  put (fld "catListA" of cd 1) into temp┬else┬  put (fld "catListL" of cd 1) into temp┬end if┬wsSet wdID,"theChoices","text",temp┬--end mouseUp┬
  70.  
  71. ItemType: LBL
  72. Rect: 145,60,200,76
  73. Text: Format:
  74.  
  75. ItemType: POP
  76. Rect: 197,61,317,79
  77. AutoSize: FALSE
  78. Name: Format
  79. Text: Stock & Fund┬Single-item┬Multi-item┬Conversion
  80.  
  81. ItemType: TEXT
  82. Rect: 11,88,91,166
  83. TextFont: Geneva
  84. TextSize: 10
  85. AutoSize: FALSE
  86. Name: Instructions2
  87. TextAlign: Right
  88. Text: Click on this list to choose a category for the new detail
  89.  
  90. ItemType: TEXT
  91. Rect: 1,45,293,57
  92. TextFont: Geneva
  93. TextSize: 9
  94. Name: instructions4
  95. Text: If desired, adjust the type or format with these pop-up buttons:
  96.  
  97. ItemType: LBL
  98. Rect: 22,154,93,166
  99. TextFont: Geneva
  100. TextSize: 9
  101. Text: details created
  102.  
  103. ItemType: TEXT
  104. Rect: 6,154,19,166
  105. TextFont: Geneva
  106. TextSize: 9
  107. AutoSize: FALSE
  108. Name: createNum
  109. TextStyle: Bold
  110. TextAlign: Right
  111. Text: 0
  112.  
  113. ItemType: LINE
  114. Rect: 8,205,315,206
  115.  
  116. ItemType: TEXT
  117. Rect: 6,208,320,273
  118. TextFont: Geneva
  119. TextSize: 9
  120. AutoSize: FALSE
  121. Name: Instructions5
  122. Text: After you have entered the name, chosen the type and format from the pop-up menus and clicked on a category, click ╥OK╙ to register the new detail. Click ╥New Category╙ to create a new category to choose from. Click ╥Done╙ when you are finished creating new details for this session.